#$Source: Volumes://MATEOR/prlserverapi/prlserverapi-gui.rc/ssd.pm$
#$Date: June 18, 2012$
#$Revision: 0.01-0a$

use strict;
package ssd;

$| = 1;

my $pid;

sub page{
  my($r) = @_;
  if($pid = fork){
    print <<EOP;
ssd.pm: perl ./webserver.pl 1234
EOP
  } else {
    system("perl", "./webserver.pl", "1234");
    exit(0);
  }
  print "ssd.pm: Done.\n";

}

1;
